home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Updates⁄New / TicklerMaster™ File / card_2898.txt < prev    next >
Encoding:
Text File  |  1988-06-01  |  1.6 KB  |  75 lines
  1. -- card: 2898 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 2728
  5. -- name: Plan of Day 
  6. ----- HyperTalk script -----
  7. no script
  8.  
  9.  
  10.  
  11.  
  12. -- part 24 (button)
  13. -- low flags: 00
  14. -- high flags: A003
  15. -- rect: left=17 top=30 right=52 bottom=117
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 0 / 0
  18. -- text alignment: 1
  19. -- font id: 0
  20. -- text size: 12
  21. -- style flags: 0
  22. -- line height: 16
  23. -- part name: Any Day
  24. ----- HyperTalk script -----
  25. on mouseUp
  26.   ask "Plan of the Day for which day"
  27.   put it into whichDay
  28.   visual wipe up
  29.   set cursor to 4
  30.   put empty into field "Actions"
  31.   put empty into field "Done"
  32.   put empty into field "Links"
  33.   convert whichDay to long date
  34.   get whichDay
  35.   put it into field id 6  -- field date
  36.   convert it to seconds
  37.   put it into today
  38.   put 60*60*24 into oneDay
  39.   put 1 into lineNumber
  40.   repeat with x = 2 to the number of cards
  41.     get (field id 1 of card x)
  42.     convert it to seconds
  43.     if it is empty then next repeat
  44.     if it = today and (field "Completed" of card x) is empty then
  45.       put (field "Abstract" of card x) into line lineNumber of field "Actions"
  46.       put (the name of card x) into line lineNumber of field "Links"
  47.       add 1 to lineNumber
  48.     end if
  49.   end repeat
  50.   show background button id 19
  51. end mouseUp
  52.  
  53.  
  54.  
  55.  
  56.  
  57. -- part contents for background part 48
  58. ----- text -----
  59.  
  60.  
  61.  
  62. TicklerMaster File‚Ñ¢
  63. ¬© 1988 U-Compute-it
  64. 105 Center Street
  65. Hartford, Kentucky 42347 USA
  66. 502-298-3358
  67. written by James Casebier
  68.  
  69.  
  70. HyperCard ShareWare
  71. $20.00
  72.  
  73. -- part contents for background part 6
  74. ----- text -----
  75. Wednesday, June 1, 1988